home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_3 / screenfool / sftest.sf < prev    next >
Text File  |  1993-09-12  |  2KB  |  75 lines
  1. /* ARexx program to test ScreenFool */
  2. options results
  3.  
  4. curr=address()
  5. if curr='' | curr='REXX' then curr='ScreenFool.1'
  6. address value curr
  7. 'front Workbench'
  8. call delay(100)
  9. say '->'SFStatus
  10. 'command'
  11. 'info Workbench NOGUI stem=WB var=ATT'
  12. say '-->'WB.SCREEN
  13. say '-->'WB.TITLE
  14. say '-->'WB.DISPLAY.TITLE
  15. say '-->'WB.DISPLAY.NAME' (0x'd2x(WB.DISPLAY.ID)')'
  16. say '-->'WB.DISPLAY.WIDTH' x 'WB.DISPLAY.HEIGHT
  17. say '-->'WB.DISPLAY.DEPTH' bitplanes.'
  18. say '-->'WB.FONT.NAME WB.FONT.YSIZE
  19. say
  20. say '-->'att
  21. say '-->'result
  22. say
  23. say '->'SFStatus
  24. 'hide'
  25. say '->'SFStatus
  26. 'show'
  27. say '->'SFStatus
  28. 'about'
  29. say '->'SFStatus
  30. 'get screens stem=SCREEN'
  31. say '-->'result
  32. say '-->'SCREEN.COUNT
  33. do i=0 to SCREEN.COUNT-1
  34.   say "-->"i SCREEN.i
  35.   end
  36. say '->'SFStatus
  37. 'lockgui'
  38. 'getattr displays STEM=DISPLAYMODE'
  39. say '-->'DISPLAYMODE.COUNT
  40. do i=0 to DISPLAYMODE.COUNT-1
  41.   say "-->"DISPLAYMODE.i.NAME '(0x'd2x(DISPLAYMODE.i.ID)')' "Properties: 0x"d2x(DISPLAYMODE.i.PROP)
  42.   say "-->"DISPLAYMODE.i.TXTWIDTH 'x' DISPLAYMODE.i.TXTHEIGHT "(Graphics: "DISPLAYMODE.i.GFXWIDTH 'x' DISPLAYMODE.i.GFXHEIGHT")"
  43.   say "-->"DISPLAYMODE.i.MAXDEPTH 'bitplanes maximum'
  44.   say
  45.   end
  46. say '--->'RESULT
  47. say '->'SFStatus
  48. 'getattr sfscreen'
  49. say '-->'RESULT
  50. say '->'SFStatus
  51. 'getattr gleeson'
  52. say '->'SFStatus
  53. 'getattr application stem=APP'
  54. say '-->'result
  55. say '-->'app.version
  56. say '-->'app.copyright
  57. say '-->'app.screen
  58. say '-->'app.defscreen
  59. say '-->'app.portname
  60. say '-->'app.screens
  61. say '-->'app.displaymodes
  62. say '-->'app.iversion
  63. say '->'SFStatus
  64. requesters off
  65. about
  66. status 'Look! No requester'
  67. call delay(100)
  68. requesters on
  69. 'status Waiting for user input'
  70. say;call writech stdout,'Enter user command: '
  71. parse pull commandline
  72. 'command "'commandline'"'
  73. say '->'SFStatus
  74. 'unlockgui'
  75.